
procedure pepe () is

CIERTO:		constant := True;
FALSO: 		constant := False;
DIEZ:		constant := 10;
CIERTO:		constant := True;

type Vector1 is array(1..10) of Integer;

type Tcita is record
	usuario:Tpersona;
	fecha:Tfecha;
end record;

type Vector2 is array(1..10) of boolean;

type Tfecha is record
	dia: Integer;
	mes : Integer;
end record;

x: Integer;
a : Boolean;
p1,p2: Tpersona;     -- Si los ponemos juntos reconoce ",p2" como un lexema 


function suma (x, y: Integer) return Integer is

	type Tfecha is record
		dia: Integer;
		mes : Integer;
	end record;

	z: Integer;
	a : Boolean;
	
			function suma2 (x, y: Integer) return Integer is
					type Tfecha is record
						dia: Integer;
						mes : Integer;
					end record;
				
					z: Integer;
					a : Boolean;

			begin
					a := 1;
					b := 2;
					while 5 loop
						b := 3;
					end loop;
					b := 2;
					for i in 1..10 loop
						b := 3;					
						Put_line(a);
						while 5 loop
							b := 3;
						end loop;
					end loop;
					b := 2;
					if a then
						a:=1;
					end if;
					
					suma2(1, 2);
					
			end;
	
begin
			a := a + b(7) and c.d + d;
			b := 2;
			while 5 loop
				b := 3;
			end loop;
			b := 2;
			for i in 1..10 loop
				b := 3;					
				Put_line(a);
				while 5 loop
					b := 3;
				end loop;
			end loop;
			suma2(1, 2);
end;

begin
	a := a + b(7) and c.d + d;
end pepe;


